home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / wb / czesc_1 / deft ii / sources / errors.e < prev    next >
Text File  |  1994-11-14  |  1KB  |  52 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4.  
  5. ->*****
  6. ->** External modules
  7. ->*****
  8. MODULE 'muimaster'
  9.  
  10. MODULE '*Locale'
  11. MODULE '*GUI_MUIB'
  12.  
  13.  
  14. ->*****
  15. ->** Global variables
  16. ->*****
  17. DEF deftII    :    PTR TO obj_app
  18. DEF cat        :    PTR TO catalog_DeftII
  19.  
  20.  
  21. /*******************************************************/
  22. /* Prints an error message with an intuition requester */
  23. /*******************************************************/
  24. PROC deftII_error_simple( message : PTR TO CHAR ) IS EasyRequestArgs(    NIL , [ 20 , 0 ,
  25.                                                                         cat.msg_DeftII_Error.getstr() ,
  26.                                                                         message ,
  27.                                                                         cat.msg_Simple_OK.getstr() ] , NIL , NIL )
  28.  
  29.  
  30. /*************************************************/
  31. /* Prints an error message with an MUI requester */
  32. /*************************************************/
  33. PROC deftII_error( message : PTR TO CHAR ) IS    Mui_RequestA(    deftII.app ,
  34.                                                                 deftII.wi_main ,
  35.                                                                 NIL ,
  36.                                                                 cat.msg_DeftII_Error.getstr() ,
  37.                                                                 cat.msg_OK.getstr() ,
  38.                                                                 message ,
  39.                                                                 NIL )
  40.  
  41.  
  42. /**************************************************/
  43. /* Prints a request message with an MUI requester */
  44. /**************************************************/
  45. PROC deftII_request( message : PTR TO CHAR ) RETURN Mui_RequestA(    deftII.app ,
  46.                                                                     deftII.wi_main ,
  47.                                                                     NIL ,
  48.                                                                     cat.msg_DeftII_Request.getstr() ,
  49.                                                                     cat.msg_Yes_No.getstr() ,
  50.                                                                     message ,
  51.                                                                     NIL )
  52.